/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / page-ext.elc.z / page-ext.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 6e 75 |piled by| kwzh@nu|
|00000020| 74 72 69 6d 61 74 2e 67 | 6e 75 2e 61 69 2e 6d 69 |trimat.g|nu.ai.mi|
|00000030| 74 2e 65 64 75 20 6f 6e | 20 53 75 6e 20 4a 75 6c |t.edu on| Sun Jul|
|00000040| 20 32 31 20 31 35 3a 35 | 31 3a 30 39 20 31 39 39 | 21 15:5|1:09 199|
|00000050| 36 0a 3b 3b 3b 20 66 72 | 6f 6d 20 66 69 6c 65 20 |6.;;; fr|om file |
|00000060| 2f 67 64 2f 67 6e 75 2f | 65 6d 61 63 73 2f 31 39 |/gd/gnu/|emacs/19|
|00000070| 2e 30 2f 6c 69 73 70 2f | 70 61 67 65 2d 65 78 74 |.0/lisp/|page-ext|
|00000080| 2e 65 6c 0a 3b 3b 3b 20 | 65 6d 61 63 73 20 76 65 |.el.;;; |emacs ve|
|00000090| 72 73 69 6f 6e 20 31 39 | 2e 33 31 2e 39 34 2e 31 |rsion 19|.31.94.1|
|000000a0| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000b0| 65 72 73 69 6f 6e 20 46 | 53 46 20 32 2e 31 30 0a |ersion F|SF 2.10.|
|000000c0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|000000d0| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|000000e0| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|000000f0| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|00000100| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 20 31 |exist in| Emacs 1|
|00000110| 38 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |8...(if |(and (bo|
|00000120| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000130| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000140| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|00000150| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|00000160| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|..     (|
|00000170| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|00000180| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 2e 32 |cs-versi|on "19.2|
|00000190| 39 22 29 29 29 0a 20 20 | 20 20 28 65 72 72 6f 72 |9"))).  |  (error|
|000001a0| 20 22 60 70 61 67 65 2d | 65 78 74 2e 65 6c 27 20 | "`page-|ext.el' |
|000001b0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001c0| 20 45 6d 61 63 73 20 31 | 39 2e 32 39 20 6f 72 20 | Emacs 1|9.29 or |
|000001d0| 6c 61 74 65 72 22 29 29 | 0a 0a 0a 23 40 36 38 20 |later"))|...#@68 |
|000001e0| 2a 49 66 20 6e 6f 6e 2d | 6e 69 6c 2c 20 60 70 61 |*If non-|nil, `pa|
|000001f0| 67 65 73 2d 64 69 72 65 | 63 74 6f 72 79 2d 67 6f |ges-dire|ctory-go|
|00000200| 74 6f 27 20 6e 61 72 72 | 6f 77 73 20 70 61 67 65 |to' narr|ows page|
|00000210| 73 20 62 75 66 66 65 72 | 20 74 6f 20 65 6e 74 72 |s buffer| to entr|
|00000220| 79 2e 1f 0a 28 64 65 66 | 76 61 72 20 70 61 67 65 |y...(def|var page|
|00000230| 73 2d 64 69 72 65 63 74 | 6f 72 79 2d 62 75 66 66 |s-direct|ory-buff|
|00000240| 65 72 2d 6e 61 72 72 6f | 77 69 6e 67 2d 70 20 74 |er-narro|wing-p t|
|00000250| 20 28 23 24 20 2e 20 2d | 34 38 30 29 29 0a 23 40 | (#$ . -|480)).#@|
|00000260| 36 33 20 2a 49 66 20 6e | 6f 6e 2d 6e 69 6c 2c 20 |63 *If n|on-nil, |
|00000270| 60 61 64 64 2d 6e 65 77 | 2d 70 61 67 65 27 20 6e |`add-new|-page' n|
|00000280| 61 72 72 6f 77 73 20 70 | 61 67 65 20 62 75 66 66 |arrows p|age buff|
|00000290| 65 72 20 74 6f 20 6e 65 | 77 20 65 6e 74 72 79 2e |er to ne|w entry.|
|000002a0| 1f 0a 28 64 65 66 76 61 | 72 20 70 61 67 65 73 2d |..(defva|r pages-|
|000002b0| 64 69 72 65 63 74 6f 72 | 79 2d 66 6f 72 2d 61 64 |director|y-for-ad|
|000002c0| 64 69 6e 67 2d 70 61 67 | 65 2d 6e 61 72 72 6f 77 |ding-pag|e-narrow|
|000002d0| 69 6e 67 2d 70 20 74 20 | 28 23 24 20 2e 20 2d 36 |ing-p t |(#$ . -6|
|000002e0| 31 31 29 29 0a 23 40 36 | 37 20 2a 49 66 20 6e 6f |11)).#@6|7 *If no|
|000002f0| 6e 2d 6e 69 6c 2c 20 60 | 61 64 64 2d 6e 65 77 2d |n-nil, `|add-new-|
|00000300| 70 61 67 65 27 20 69 6e | 73 65 72 74 73 20 6e 65 |page' in|serts ne|
|00000310| 77 20 70 61 67 65 20 62 | 65 66 6f 72 65 20 63 75 |w page b|efore cu|
|00000320| 72 72 65 6e 74 20 70 61 | 67 65 2e 1f 0a 28 64 65 |rrent pa|ge...(de|
|00000330| 66 76 61 72 20 70 61 67 | 65 73 2d 64 69 72 65 63 |fvar pag|es-direc|
|00000340| 74 6f 72 79 2d 66 6f 72 | 2d 61 64 64 69 6e 67 2d |tory-for|-adding-|
|00000350| 6e 65 77 2d 70 61 67 65 | 2d 62 65 66 6f 72 65 2d |new-page|-before-|
|00000360| 63 75 72 72 65 6e 74 2d | 70 61 67 65 2d 70 20 74 |current-|page-p t|
|00000370| 20 28 23 24 20 2e 20 2d | 37 34 36 29 29 0a 23 40 | (#$ . -|746)).#@|
|00000380| 31 32 36 20 2a 53 74 61 | 6e 64 61 72 64 20 6e 61 |126 *Sta|ndard na|
|00000390| 6d 65 20 66 6f 72 20 66 | 69 6c 65 20 6f 66 20 61 |me for f|ile of a|
|000003a0| 64 64 72 65 73 73 65 73 | 2e 20 45 6e 74 72 69 65 |ddresses|. Entrie|
|000003b0| 73 20 73 65 70 61 72 61 | 74 65 64 20 62 79 20 70 |s separa|ted by p|
|000003c0| 61 67 65 2d 64 65 6c 69 | 6d 69 74 65 72 2e 0a 55 |age-deli|miter..U|
|000003d0| 73 65 64 20 62 79 20 60 | 70 61 67 65 73 2d 64 69 |sed by `|pages-di|
|000003e0| 72 65 63 74 6f 72 79 2d | 66 6f 72 2d 61 64 64 72 |rectory-|for-addr|
|000003f0| 65 73 73 65 73 27 20 66 | 75 6e 63 74 69 6f 6e 2e |esses' f|unction.|
|00000400| 1f 0a 28 64 65 66 76 61 | 72 20 70 61 67 65 73 2d |..(defva|r pages-|
|00000410| 61 64 64 72 65 73 73 65 | 73 2d 66 69 6c 65 2d 6e |addresse|s-file-n|
|00000420| 61 6d 65 20 22 7e 2f 61 | 64 64 72 65 73 73 65 73 |ame "~/a|ddresses|
|00000430| 22 20 28 23 24 20 2e 20 | 2d 39 30 30 29 29 0a 23 |" (#$ . |-900)).#|
|00000440| 40 37 32 20 2a 49 66 20 | 6e 6f 6e 2d 6e 69 6c 2c |@72 *If |non-nil,|
|00000450| 20 60 70 61 67 65 73 2d | 64 69 72 65 63 74 6f 72 | `pages-|director|
|00000460| 79 2d 67 6f 74 6f 27 20 | 6e 61 72 72 6f 77 73 20 |y-goto' |narrows |
|00000470| 61 64 64 72 65 73 73 65 | 73 20 62 75 66 66 65 72 |addresse|s buffer|
|00000480| 20 74 6f 20 65 6e 74 72 | 79 2e 1f 0a 28 64 65 66 | to entr|y...(def|
|00000490| 76 61 72 20 70 61 67 65 | 73 2d 64 69 72 65 63 74 |var page|s-direct|
|000004a0| 6f 72 79 2d 66 6f 72 2d | 61 64 64 72 65 73 73 65 |ory-for-|addresse|
|000004b0| 73 2d 67 6f 74 6f 2d 6e | 61 72 72 6f 77 69 6e 67 |s-goto-n|arrowing|
|000004c0| 2d 70 20 74 20 28 23 24 | 20 2e 20 2d 31 30 39 32 |-p t (#$| . -1092|
|000004d0| 29 29 0a 23 40 36 35 20 | 2a 49 66 20 6e 69 6c 2c |)).#@65 |*If nil,|
|000004e0| 20 60 70 61 67 65 73 2d | 64 69 72 65 63 74 6f 72 | `pages-|director|
|000004f0| 79 2d 66 6f 72 2d 61 64 | 64 72 65 73 73 65 73 27 |y-for-ad|dresses'|
|00000500| 20 64 65 6c 65 74 65 73 | 20 6f 74 68 65 72 20 77 | deletes| other w|
|00000510| 69 6e 64 6f 77 73 2e 1f | 0a 28 64 65 66 76 61 72 |indows..|.(defvar|
|00000520| 20 70 61 67 65 73 2d 64 | 69 72 65 63 74 6f 72 79 | pages-d|irectory|
|00000530| 2d 66 6f 72 2d 61 64 64 | 72 65 73 73 65 73 2d 62 |-for-add|resses-b|
|00000540| 75 66 66 65 72 2d 6b 65 | 65 70 2d 77 69 6e 64 6f |uffer-ke|ep-windo|
|00000550| 77 73 2d 70 20 74 20 28 | 23 24 20 2e 20 2d 31 32 |ws-p t (|#$ . -12|
|00000560| 34 30 29 29 0a 23 40 36 | 38 20 2a 49 66 20 6e 6f |40)).#@6|8 *If no|
|00000570| 6e 2d 6e 69 6c 2c 20 60 | 61 64 64 2d 6e 65 77 2d |n-nil, `|add-new-|
|00000580| 70 61 67 65 27 20 6e 61 | 72 72 6f 77 73 20 61 64 |page' na|rrows ad|
|00000590| 64 72 65 73 73 65 73 20 | 62 75 66 66 65 72 20 74 |dresses |buffer t|
|000005a0| 6f 20 6e 65 77 20 65 6e | 74 72 79 2e 1f 0a 28 64 |o new en|try...(d|
|000005b0| 65 66 76 61 72 20 70 61 | 67 65 73 2d 64 69 72 65 |efvar pa|ges-dire|
|000005c0| 63 74 6f 72 79 2d 66 6f | 72 2d 61 64 64 69 6e 67 |ctory-fo|r-adding|
|000005d0| 2d 61 64 64 72 65 73 73 | 65 73 2d 6e 61 72 72 6f |-address|es-narro|
|000005e0| 77 69 6e 67 2d 70 20 74 | 20 28 23 24 20 2e 20 2d |wing-p t| (#$ . -|
|000005f0| 31 33 38 36 29 29 0a 28 | 67 6c 6f 62 61 6c 2d 75 |1386)).(|global-u|
|00000600| 6e 73 65 74 2d 6b 65 79 | 20 22 18 10 22 29 0a 23 |nset-key| "..").#|
|00000610| 40 36 35 20 4b 65 79 6d | 61 70 20 66 6f 72 20 73 |@65 Keym|ap for s|
|00000620| 75 62 63 6f 6d 6d 61 6e | 64 73 20 6f 66 20 43 2d |ubcomman|ds of C-|
|00000630| 78 20 43 2d 70 2c 20 77 | 68 69 63 68 20 61 72 65 |x C-p, w|hich are|
|00000640| 20 66 6f 72 20 70 61 67 | 65 20 68 61 6e 64 6c 69 | for pag|e handli|
|00000650| 6e 67 2e 1f 0a 28 64 65 | 66 76 61 72 20 63 74 6c |ng...(de|fvar ctl|
|00000660| 2d 78 2d 63 74 6c 2d 70 | 2d 6d 61 70 20 28 6d 61 |-x-ctl-p|-map (ma|
|00000670| 6b 65 2d 73 70 61 72 73 | 65 2d 6b 65 79 6d 61 70 |ke-spars|e-keymap|
|00000680| 29 20 28 23 24 20 2e 20 | 31 35 35 36 29 29 0a 28 |) (#$ . |1556)).(|
|00000690| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 09 c2 c3 23 |byte-cod|e "....#|
|000006a0| 88 c3 5c 66 4d 88 c0 5c | 66 c5 c6 23 88 c0 5c 66 |..\fM..\|f..#..\f|
|000006b0| c2 c7 23 88 c0 5c 66 c8 | c9 23 88 c0 5c 66 ca cb |..#..\f.|.#..\f..|
|000006c0| 23 88 c0 5c 66 cc cd 23 | 88 c0 5c 66 ce cf 23 88 |#..\f..#|..\f..#.|
|000006d0| c0 5c 66 d0 d1 23 88 c0 | 5c 66 d2 d3 23 88 c0 5c |.\f..#..|\f..#..\|
|000006e0| 66 d4 d5 23 87 22 20 5b | 64 65 66 69 6e 65 2d 6b |f..#." [|define-k|
|000006f0| 65 79 20 63 74 6c 2d 78 | 2d 6d 61 70 20 22 10 22 |ey ctl-x|-map "."|
|00000700| 20 63 74 6c 2d 78 2d 63 | 74 6c 2d 70 2d 70 72 65 | ctl-x-c|tl-p-pre|
|00000710| 66 69 78 20 63 74 6c 2d | 78 2d 63 74 6c 2d 70 2d |fix ctl-|x-ctl-p-|
|00000720| 6d 61 70 20 22 0e 22 20 | 6e 65 78 74 2d 70 61 67 |map "." |next-pag|
|00000730| 65 20 70 72 65 76 69 6f | 75 73 2d 70 61 67 65 20 |e previo|us-page |
|00000740| 22 01 22 20 61 64 64 2d | 6e 65 77 2d 70 61 67 65 |"." add-|new-page|
|00000750| 20 22 0d 22 20 6d 61 72 | 6b 2d 70 61 67 65 20 22 | "." mar|k-page "|
|00000760| 13 22 20 73 65 61 72 63 | 68 2d 70 61 67 65 73 20 |." searc|h-pages |
|00000770| 22 73 22 20 73 6f 72 74 | 2d 70 61 67 65 73 2d 62 |"s" sort|-pages-b|
|00000780| 75 66 66 65 72 20 22 5c | 66 22 20 73 65 74 2d 70 |uffer "\|f" set-p|
|00000790| 61 67 65 2d 64 65 6c 69 | 6d 69 74 65 72 20 22 04 |age-deli|miter ".|
|000007a0| 22 20 70 61 67 65 73 2d | 64 69 72 65 63 74 6f 72 |" pages-|director|
|000007b0| 79 20 22 64 22 20 70 61 | 67 65 73 2d 64 69 72 65 |y "d" pa|ges-dire|
|000007c0| 63 74 6f 72 79 2d 66 6f | 72 2d 61 64 64 72 65 73 |ctory-fo|r-addres|
|000007d0| 73 65 73 5d 20 34 29 0a | 23 40 31 32 31 20 4d 6f |ses] 4).|#@121 Mo|
|000007e0| 76 65 20 74 6f 20 74 68 | 65 20 6e 65 78 74 20 70 |ve to th|e next p|
|000007f0| 61 67 65 20 62 6f 75 6e | 64 65 64 20 62 79 20 74 |age boun|ded by t|
|00000800| 68 65 20 60 70 61 67 65 | 2d 64 65 6c 69 6d 69 74 |he `page|-delimit|
|00000810| 65 72 27 20 76 61 72 69 | 61 62 6c 65 2e 0a 57 69 |er' vari|able..Wi|
|00000820| 74 68 20 61 72 67 20 28 | 70 72 65 66 69 78 20 69 |th arg (|prefix i|
|00000830| 66 20 69 6e 74 65 72 61 | 63 74 69 76 65 29 2c 20 |f intera|ctive), |
|00000840| 6d 6f 76 65 20 74 68 61 | 74 20 6d 61 6e 79 20 70 |move tha|t many p|
|00000850| 61 67 65 73 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ages...(|defalias|
|00000860| 20 27 6e 65 78 74 2d 70 | 61 67 65 20 23 5b 28 26 | 'next-p|age #[(&|
|00000870| 6f 70 74 69 6f 6e 61 6c | 20 63 6f 75 6e 74 29 20 |optional| count) |
|00000880| 22 08 84 06 00 c1 10 7e | 88 08 c2 56 83 24 00 6d |"......~|...V.$.m|
|00000890| 84 24 00 c3 5c 66 c5 c6 | 23 84 1d 00 64 62 88 08 |.$..\f..|#...db..|
|000008a0| 53 89 10 82 09 00 08 c1 | 57 83 47 00 6f 84 47 00 |S.......|W.G.o.G.|
|000008b0| c7 5c 66 c5 c6 23 83 3d | 00 c2 94 62 88 82 40 00 |.\f..#.=|...b..@.|
|000008c0| 65 62 88 08 54 89 10 82 | 25 00 c8 20 88 65 62 88 |eb..T...|%.. .eb.|
|000008d0| c9 c2 21 87 22 20 5b 63 | 6f 75 6e 74 20 31 20 30 |..!." [c|ount 1 0|
|000008e0| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|000008f0| 72 64 20 70 61 67 65 2d | 64 65 6c 69 6d 69 74 65 |rd page-|delimite|
|00000900| 72 20 6e 69 6c 20 74 20 | 72 65 2d 73 65 61 72 63 |r nil t |re-searc|
|00000910| 68 2d 62 61 63 6b 77 61 | 72 64 20 6e 61 72 72 6f |h-backwa|rd narro|
|00000920| 77 2d 74 6f 2d 70 61 67 | 65 20 72 65 63 65 6e 74 |w-to-pag|e recent|
|00000930| 65 72 5d 20 35 20 28 23 | 24 20 2e 20 32 30 31 34 |er] 5 (#|$ . 2014|
|00000940| 29 20 22 70 22 5d 29 0a | 23 40 31 32 35 20 4d 6f |) "p"]).|#@125 Mo|
|00000950| 76 65 20 74 6f 20 74 68 | 65 20 70 72 65 76 69 6f |ve to th|e previo|
|00000960| 75 73 20 70 61 67 65 20 | 62 6f 75 6e 64 65 64 20 |us page |bounded |
|00000970| 62 79 20 74 68 65 20 60 | 70 61 67 65 2d 64 65 6c |by the `|page-del|
|00000980| 69 6d 69 74 65 72 27 20 | 76 61 72 69 61 62 6c 65 |imiter' |variable|
|00000990| 2e 0a 57 69 74 68 20 61 | 72 67 20 28 70 72 65 66 |..With a|rg (pref|
|000009a0| 69 78 20 69 66 20 69 6e | 74 65 72 61 63 74 69 76 |ix if in|teractiv|
|000009b0| 65 29 2c 20 6d 6f 76 65 | 20 74 68 61 74 20 6d 61 |e), move| that ma|
|000009c0| 6e 79 20 70 61 67 65 73 | 2e 1f 0a 28 64 65 66 61 |ny pages|...(defa|
|000009d0| 6c 69 61 73 20 27 70 72 | 65 76 69 6f 75 73 2d 70 |lias 'pr|evious-p|
|000009e0| 61 67 65 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |age #[(&|optional|
|000009f0| 20 63 6f 75 6e 74 29 20 | 22 08 84 06 00 c1 10 c2 | count) |".......|
|00000a00| 08 5b 21 87 22 20 5b 63 | 6f 75 6e 74 20 31 20 6e |.[!." [c|ount 1 n|
|00000a10| 65 78 74 2d 70 61 67 65 | 5d 20 32 20 28 23 24 20 |ext-page|] 2 (#$ |
|00000a20| 2e 20 32 33 38 32 29 20 | 22 70 22 5d 29 0a 23 40 |. 2382) |"p"]).#@|
|00000a30| 35 36 33 20 49 6e 73 65 | 72 74 20 6e 65 77 20 70 |563 Inse|rt new p|
|00000a40| 61 67 65 2e 20 20 50 72 | 6f 6d 70 74 20 66 6f 72 |age.  Pr|ompt for|
|00000a50| 20 68 65 61 64 65 72 20 | 6c 69 6e 65 2e 0a 0a 49 | header |line...I|
|00000a60| 66 20 70 6f 69 6e 74 20 | 69 73 20 69 6e 20 74 68 |f point |is in th|
|00000a70| 65 20 70 61 67 65 73 20 | 64 69 72 65 63 74 6f 72 |e pages |director|
|00000a80| 79 20 62 75 66 66 65 72 | 2c 20 69 6e 73 65 72 74 |y buffer|, insert|
|00000a90| 20 74 68 65 20 6e 65 77 | 20 70 61 67 65 20 69 6e | the new| page in|
|00000aa0| 20 74 68 65 0a 62 75 66 | 66 65 72 20 61 73 73 6f | the.buf|fer asso|
|00000ab0| 63 69 61 74 65 64 20 77 | 69 74 68 20 74 68 65 20 |ciated w|ith the |
|00000ac0| 64 69 72 65 63 74 6f 72 | 79 2e 0a 0a 49 6e 73 65 |director|y...Inse|
|00000ad0| 72 74 20 74 68 65 20 6e | 65 77 20 70 61 67 65 20 |rt the n|ew page |
|00000ae0| 6a 75 73 74 20 62 65 66 | 6f 72 65 20 63 75 72 72 |just bef|ore curr|
|00000af0| 65 6e 74 20 70 61 67 65 | 20 69 66 0a 20 20 70 61 |ent page| if.  pa|
|00000b00| 67 65 73 2d 64 69 72 65 | 63 74 6f 72 79 2d 66 6f |ges-dire|ctory-fo|
|00000b10| 72 2d 61 64 64 69 6e 67 | 2d 6e 65 77 2d 70 61 67 |r-adding|-new-pag|
|00000b20| 65 2d 62 65 66 6f 72 65 | 2d 63 75 72 72 65 6e 74 |e-before|-current|
|00000b30| 2d 70 61 67 65 2d 70 20 | 20 76 61 72 69 61 62 6c |-page-p | variabl|
|00000b40| 65 0a 69 73 20 6e 6f 6e | 2d 6e 69 6c 2e 20 20 45 |e.is non|-nil.  E|
|00000b50| 6c 73 65 20 69 6e 73 65 | 72 74 20 61 74 20 65 78 |lse inse|rt at ex|
|00000b60| 61 63 74 20 6c 6f 63 61 | 74 69 6f 6e 20 6f 66 20 |act loca|tion of |
|00000b70| 70 6f 69 6e 74 2e 0a 0a | 4e 61 72 72 6f 77 20 74 |point...|Narrow t|
|00000b80| 6f 20 6e 65 77 20 70 61 | 67 65 20 69 66 0a 20 20 |o new pa|ge if.  |
|00000b90| 70 61 67 65 73 2d 64 69 | 72 65 63 74 6f 72 79 2d |pages-di|rectory-|
|00000ba0| 66 6f 72 2d 61 64 64 69 | 6e 67 2d 70 61 67 65 2d |for-addi|ng-page-|
|00000bb0| 6e 61 72 72 6f 77 69 6e | 67 2d 70 20 76 61 72 69 |narrowin|g-p vari|
|00000bc0| 61 62 6c 65 0a 69 73 20 | 6e 6f 6e 2d 6e 69 6c 2e |able.is |non-nil.|
|00000bd0| 0a 0a 50 61 67 65 20 62 | 65 67 69 6e 73 20 77 69 |..Page b|egins wi|
|00000be0| 74 68 20 61 20 60 5e 4c | 27 20 61 73 20 74 68 65 |th a `^L|' as the|
|00000bf0| 20 64 65 66 61 75 6c 74 | 20 70 61 67 65 2d 64 65 | default| page-de|
|00000c00| 6c 69 6d 69 74 65 72 2e | 20 20 0a 55 73 65 20 5c |limiter.|  .Use \|
|00000c10| 5b 73 65 74 2d 70 61 67 | 65 2d 64 65 6c 69 6d 69 |[set-pag|e-delimi|
|00000c20| 74 65 72 5d 20 74 6f 20 | 63 68 61 6e 67 65 20 74 |ter] to |change t|
|00000c30| 68 65 20 70 61 67 65 2d | 64 65 6c 69 6d 69 74 65 |he page-|delimite|
|00000c40| 72 2e 0a 50 6f 69 6e 74 | 20 69 73 20 6c 65 66 74 |r..Point| is left|
|00000c50| 20 69 6e 20 74 68 65 20 | 62 6f 64 79 20 6f 66 20 | in the |body of |
|00000c60| 70 61 67 65 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |page...(|defalias|
|00000c70| 20 27 61 64 64 2d 6e 65 | 77 2d 70 61 67 65 20 23 | 'add-ne|w-page #|
|00000c80| 5b 28 68 65 61 64 65 72 | 2d 6c 69 6e 65 29 20 22 |[(header|-line) "|
|00000c90| 7e 88 08 c1 3d 83 1f 00 | 5c 6e 83 12 00 c3 20 88 |~...=...|\n.... .|
|00000ca0| 82 1f 00 c3 20 88 c4 20 | 88 6d 84 1f 00 c5 79 88 |.... .. |.m....y.|
|00000cb0| 7e 88 5c 6e 83 4f 00 c6 | 0e 07 c8 c9 23 83 35 00 |~.\n.O..|....#.5.|
|00000cc0| ca 94 62 88 82 4f 00 65 | 62 88 cb cc cd 0e 07 21 |..b..O.e|b......!|
|00000cd0| 40 ce 3d 85 49 00 0e 07 | cf c8 4f 5c 22 63 88 65 |@.=.I...|..O\"c.e|
|00000ce0| 62 88 d0 d1 21 84 58 00 | cf 79 88 cb d2 cd 0e 07 |b...!.X.|.y......|
|00000cf0| 21 40 ce 3d 85 69 00 0e | 07 cf c8 4f 0e 13 23 63 |!@.=.i..|...O..#c|
|00000d00| 88 c5 79 88 0e 14 85 78 | 00 d5 20 87 22 20 5b 6d |..y....x|.. ." [m|
|00000d10| 61 6a 6f 72 2d 6d 6f 64 | 65 20 70 61 67 65 73 2d |ajor-mod|e pages-|
|00000d20| 64 69 72 65 63 74 6f 72 | 79 2d 6d 6f 64 65 20 70 |director|y-mode p|
|00000d30| 61 67 65 73 2d 64 69 72 | 65 63 74 6f 72 79 2d 66 |ages-dir|ectory-f|
|00000d40| 6f 72 2d 61 64 64 69 6e | 67 2d 6e 65 77 2d 70 61 |or-addin|g-new-pa|
|00000d50| 67 65 2d 62 65 66 6f 72 | 65 2d 63 75 72 72 65 6e |ge-befor|e-curren|
|00000d60| 74 2d 70 61 67 65 2d 70 | 20 70 61 67 65 73 2d 64 |t-page-p| pages-d|
|00000d70| 69 72 65 63 74 6f 72 79 | 2d 67 6f 74 6f 20 66 6f |irectory|-goto fo|
|00000d80| 72 77 61 72 64 2d 70 61 | 67 65 20 2d 31 20 72 65 |rward-pa|ge -1 re|
|00000d90| 2d 73 65 61 72 63 68 2d | 62 61 63 6b 77 61 72 64 |-search-|backward|
|00000da0| 20 70 61 67 65 2d 64 65 | 6c 69 6d 69 74 65 72 20 | page-de|limiter |
|00000db0| 6e 69 6c 20 74 20 30 20 | 66 6f 72 6d 61 74 20 22 |nil t 0 |format "|
|00000dc0| 25 73 5c 6e 22 20 72 65 | 61 64 2d 66 72 6f 6d 2d |%s\n" re|ad-from-|
|00000dd0| 73 74 72 69 6e 67 20 5e | 20 31 20 6c 6f 6f 6b 69 |string ^| 1 looki|
|00000de0| 6e 67 2d 61 74 20 22 5e | 2e 22 20 22 25 73 5c 6e |ng-at "^|." "%s\n|
|00000df0| 25 73 5c 6e 5c 6e 5c 6e | 22 20 68 65 61 64 65 72 |%s\n\n\n|" header|
|00000e00| 2d 6c 69 6e 65 20 70 61 | 67 65 73 2d 64 69 72 65 |-line pa|ges-dire|
|00000e10| 63 74 6f 72 79 2d 66 6f | 72 2d 61 64 64 69 6e 67 |ctory-fo|r-adding|
|00000e20| 2d 70 61 67 65 2d 6e 61 | 72 72 6f 77 69 6e 67 2d |-page-na|rrowing-|
|00000e30| 70 20 6e 61 72 72 6f 77 | 2d 74 6f 2d 70 61 67 65 |p narrow|-to-page|
|00000e40| 5d 20 35 20 28 23 24 20 | 2e 20 32 36 31 32 29 20 |] 5 (#$ |. 2612) |
|00000e50| 22 73 48 65 61 64 65 72 | 20 6c 69 6e 65 3a 20 22 |"sHeader| line: "|
|00000e60| 5d 29 0a 23 40 35 33 20 | 56 61 6c 75 65 20 6f 66 |]).#@53 |Value of|
|00000e70| 20 6c 61 73 74 20 72 65 | 67 65 78 70 20 73 65 61 | last re|gexp sea|
|00000e80| 72 63 68 65 64 20 66 6f | 72 2e 20 20 49 6e 69 74 |rched fo|r.  Init|
|00000e90| 69 61 6c 6c 79 2c 20 6e | 69 6c 2e 1f 0a 28 64 65 |ially, n|il...(de|
|00000ea0| 66 76 61 72 20 70 61 67 | 65 73 2d 6c 61 73 74 2d |fvar pag|es-last-|
|00000eb0| 73 65 61 72 63 68 20 6e | 69 6c 20 28 23 24 20 2e |search n|il (#$ .|
|00000ec0| 20 33 36 38 38 29 29 0a | 23 40 37 30 20 53 65 61 | 3688)).|#@70 Sea|
|00000ed0| 72 63 68 20 66 6f 72 20 | 52 45 47 45 58 50 2c 20 |rch for |REGEXP, |
|00000ee0| 73 74 61 72 74 69 6e 67 | 20 66 72 6f 6d 20 70 6f |starting| from po|
|00000ef0| 69 6e 74 2c 20 61 6e 64 | 20 6e 61 72 72 6f 77 20 |int, and| narrow |
|00000f00| 74 6f 20 70 61 67 65 20 | 69 74 20 69 73 20 69 6e |to page |it is in|
|00000f10| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 65 |...(defa|lias 'se|
|00000f20| 61 72 63 68 2d 70 61 67 | 65 73 20 23 5b 28 72 65 |arch-pag|es #[(re|
|00000f30| 67 65 78 70 29 20 22 08 | c1 9a 83 0b 00 5c 6e 10 |gexp) ".|.....\n.|
|00000f40| 82 0d 00 08 12 7e 88 c3 | 08 21 88 c4 20 87 22 20 |.....~..|.!.. ." |
|00000f50| 5b 72 65 67 65 78 70 20 | 22 22 20 70 61 67 65 73 |[regexp |"" pages|
|00000f60| 2d 6c 61 73 74 2d 73 65 | 61 72 63 68 20 72 65 2d |-last-se|arch re-|
|00000f70| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 6e |search-f|orward n|
|00000f80| 61 72 72 6f 77 2d 74 6f | 2d 70 61 67 65 5d 20 32 |arrow-to|-page] 2|
|00000f90| 20 28 23 24 20 2e 20 33 | 37 38 39 29 20 28 6c 69 | (#$ . 3|789) (li|
|00000fa0| 73 74 20 28 72 65 61 64 | 2d 73 74 72 69 6e 67 20 |st (read|-string |
|00000fb0| 28 66 6f 72 6d 61 74 20 | 22 53 65 61 72 63 68 20 |(format |"Search |
|00000fc0| 66 6f 72 20 60 25 73 27 | 20 28 65 6e 64 20 77 69 |for `%s'| (end wi|
|00000fd0| 74 68 20 52 45 54 29 3a | 20 22 20 28 6f 72 20 70 |th RET):| " (or p|
|00000fe0| 61 67 65 73 2d 6c 61 73 | 74 2d 73 65 61 72 63 68 |ages-las|t-search|
|00000ff0| 20 22 72 65 67 65 78 70 | 22 29 29 29 29 5d 29 0a | "regexp|"))))]).|
|00001000| 23 40 33 31 20 50 72 69 | 6d 61 72 79 20 66 75 6e |#@31 Pri|mary fun|
|00001010| 63 74 69 6f 6e 20 66 6f | 72 20 73 6f 72 74 69 6e |ction fo|r sortin|
|00001020| 67 2e 1f 0a 28 61 75 74 | 6f 6c 6f 61 64 20 28 71 |g...(aut|oload (q|
|00001030| 75 6f 74 65 20 73 6f 72 | 74 2d 73 75 62 72 29 20 |uote sor|t-subr) |
|00001040| 22 73 6f 72 74 22 20 27 | 28 23 24 20 2e 20 34 31 |"sort" '|(#$ . 41|
|00001050| 30 31 29 20 74 20 6e 69 | 6c 29 0a 23 40 31 39 33 |01) t ni|l).#@193|
|00001060| 20 53 6f 72 74 20 70 61 | 67 65 73 20 69 6e 20 72 | Sort pa|ges in r|
|00001070| 65 67 69 6f 6e 20 61 6c | 70 68 61 62 65 74 69 63 |egion al|phabetic|
|00001080| 61 6c 6c 79 2e 20 20 50 | 72 65 66 69 78 20 61 72 |ally.  P|refix ar|
|00001090| 67 20 6d 65 61 6e 73 20 | 72 65 76 65 72 73 65 20 |g means |reverse |
|000010a0| 6f 72 64 65 72 2e 20 20 | 0a 0a 43 61 6c 6c 65 64 |order.  |..Called|
|000010b0| 20 66 72 6f 6d 20 61 20 | 70 72 6f 67 72 61 6d 2c | from a |program,|
|000010c0| 20 74 68 65 72 65 20 61 | 72 65 20 74 68 72 65 65 | there a|re three|
|000010d0| 20 61 72 67 75 6d 65 6e | 74 73 3a 0a 52 45 56 45 | argumen|ts:.REVE|
|000010e0| 52 53 45 20 28 6e 6f 6e | 2d 6e 69 6c 20 6d 65 61 |RSE (non|-nil mea|
|000010f0| 6e 73 20 72 65 76 65 72 | 73 65 20 6f 72 64 65 72 |ns rever|se order|
|00001100| 29 2c 20 42 45 47 20 61 | 6e 64 20 45 4e 44 20 28 |), BEG a|nd END (|
|00001110| 72 65 67 69 6f 6e 20 74 | 6f 20 73 6f 72 74 29 2e |region t|o sort).|
|00001120| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 6f 72 |..(defal|ias 'sor|
|00001130| 74 2d 70 61 67 65 73 2d | 69 6e 2d 72 65 67 69 6f |t-pages-|in-regio|
|00001140| 6e 20 23 5b 28 72 65 76 | 65 72 73 65 20 62 65 67 |n #[(rev|erse beg|
|00001150| 20 65 6e 64 29 20 22 8c | 08 09 7d 88 65 62 88 c2 | end) ".|..}.eb..|
|00001160| 0b c4 c5 23 29 87 22 20 | 5b 62 65 67 20 65 6e 64 |...#)." |[beg end|
|00001170| 20 73 6f 72 74 2d 73 75 | 62 72 20 72 65 76 65 72 | sort-su|br rever|
|00001180| 73 65 20 23 5b 6e 69 6c | 20 22 c0 09 c2 c3 23 88 |se #[nil| "....#.|
|00001190| c4 c2 77 87 22 20 5b 72 | 65 2d 73 65 61 72 63 68 |..w." [r|e-search|
|000011a0| 2d 66 6f 72 77 61 72 64 | 20 70 61 67 65 2d 64 65 |-forward| page-de|
|000011b0| 6c 69 6d 69 74 65 72 20 | 6e 69 6c 20 74 20 22 20 |limiter |nil t " |
|000011c0| 09 5c 6e 22 5d 20 34 5d | 20 23 5b 6e 69 6c 20 22 |.\n"] 4]| #[nil "|
|000011d0| c0 09 c2 c3 23 83 5c 66 | 00 c4 94 62 87 64 62 87 |....#.\f|...b.db.|
|000011e0| 22 20 5b 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |" [re-se|arch-for|
|000011f0| 77 61 72 64 20 70 61 67 | 65 2d 64 65 6c 69 6d 69 |ward pag|e-delimi|
|00001200| 74 65 72 20 6e 69 6c 20 | 74 20 30 5d 20 34 5d 5d |ter nil |t 0] 4]]|
|00001210| 20 34 20 28 23 24 20 2e | 20 34 31 39 33 29 20 22 | 4 (#$ .| 4193) "|
|00001220| 50 5c 6e 72 22 5d 29 0a | 23 40 31 30 36 20 53 6f |P\nr"]).|#@106 So|
|00001230| 72 74 20 70 61 67 65 73 | 20 61 6c 70 68 61 62 65 |rt pages| alphabe|
|00001240| 74 69 63 61 6c 6c 79 20 | 69 6e 20 62 75 66 66 65 |tically |in buffe|
|00001250| 72 2e 20 20 50 72 65 66 | 69 78 20 61 72 67 20 6d |r.  Pref|ix arg m|
|00001260| 65 61 6e 73 20 72 65 76 | 65 72 73 65 20 6f 72 64 |eans rev|erse ord|
|00001270| 65 72 2e 20 0a 28 4e 6f | 6e 2d 6e 69 6c 20 61 72 |er. .(No|n-nil ar|
|00001280| 67 20 69 66 20 6e 6f 74 | 20 69 6e 74 65 72 61 63 |g if not| interac|
|00001290| 74 69 76 65 2e 29 1f 0a | 28 64 65 66 61 6c 69 61 |tive.)..|(defalia|
|000012a0| 73 20 27 73 6f 72 74 2d | 70 61 67 65 73 2d 62 75 |s 'sort-|pages-bu|
|000012b0| 66 66 65 72 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |ffer #[(|&optiona|
|000012c0| 6c 20 72 65 76 65 72 73 | 65 29 20 22 08 84 06 00 |l revers|e) "....|
|000012d0| c1 10 7e 88 65 64 1a 1b | c4 08 0b 5c 6e 23 2a 87 |..~.ed..|...\n#*.|
|000012e0| 22 20 5b 72 65 76 65 72 | 73 65 20 6e 69 6c 20 65 |" [rever|se nil e|
|000012f0| 6e 64 20 62 65 67 69 6e | 6e 69 6e 67 20 73 6f 72 |nd begin|ning sor|
|00001300| 74 2d 70 61 67 65 73 2d | 69 6e 2d 72 65 67 69 6f |t-pages-|in-regio|
|00001310| 6e 5d 20 34 20 28 23 24 | 20 2e 20 34 36 35 34 29 |n] 4 (#$| . 4654)|
|00001320| 20 22 50 22 5d 29 0a 23 | 40 31 35 34 20 56 61 6c | "P"]).#|@154 Val|
|00001330| 75 65 20 6f 66 20 70 72 | 65 76 69 6f 75 73 20 72 |ue of pr|evious r|
|00001340| 65 67 65 78 70 20 75 73 | 65 64 20 62 79 20 60 70 |egexp us|ed by `p|
|00001350| 61 67 65 73 2d 64 69 72 | 65 63 74 6f 72 79 27 2e |ages-dir|ectory'.|
|00001360| 0a 28 54 68 69 73 20 72 | 65 67 75 6c 61 72 20 65 |.(This r|egular e|
|00001370| 78 70 72 65 73 73 69 6f | 6e 20 6d 61 79 20 62 65 |xpressio|n may be|
|00001380| 20 75 73 65 64 20 74 6f | 20 73 65 6c 65 63 74 20 | used to| select |
|00001390| 6f 6e 6c 79 20 74 68 6f | 73 65 20 70 61 67 65 73 |only tho|se pages|
|000013a0| 20 74 68 61 74 0a 63 6f | 6e 74 61 69 6e 20 6d 61 | that.co|ntain ma|
|000013b0| 74 63 68 65 73 20 74 6f | 20 74 68 65 20 72 65 67 |tches to| the reg|
|000013c0| 65 78 70 2e 29 1f 0a 28 | 64 65 66 76 61 72 20 70 |exp.)..(|defvar p|
|000013d0| 61 67 65 73 2d 64 69 72 | 65 63 74 6f 72 79 2d 70 |ages-dir|ectory-p|
|000013e0| 72 65 76 69 6f 75 73 2d | 72 65 67 65 78 70 20 6e |revious-|regexp n|
|000013f0| 69 6c 20 28 23 24 20 2e | 20 34 39 30 39 29 29 0a |il (#$ .| 4909)).|
|00001400| 23 40 37 34 20 54 68 65 | 20 62 75 66 66 65 72 20 |#@74 The| buffer |
|00001410| 66 6f 72 20 77 68 69 63 | 68 20 74 68 65 20 70 61 |for whic|h the pa|
|00001420| 67 65 73 2d 64 69 72 65 | 63 74 6f 72 79 20 66 75 |ges-dire|ctory fu|
|00001430| 6e 63 74 69 6f 6e 20 63 | 72 65 61 74 65 73 20 74 |nction c|reates t|
|00001440| 68 65 20 64 69 72 65 63 | 74 6f 72 79 2e 1f 0a 28 |he direc|tory...(|
|00001450| 64 65 66 76 61 72 20 70 | 61 67 65 73 2d 62 75 66 |defvar p|ages-buf|
|00001460| 66 65 72 20 6e 69 6c 20 | 28 23 24 20 2e 20 35 31 |fer nil |(#$ . 51|
|00001470| 32 35 29 29 0a 23 40 35 | 37 20 50 72 65 66 69 78 |25)).#@5|7 Prefix|
|00001480| 20 6f 66 20 6e 61 6d 65 | 20 6f 66 20 74 65 6d 70 | of name| of temp|
|00001490| 6f 72 61 72 79 20 62 75 | 66 66 65 72 20 66 6f 72 |orary bu|ffer for|
|000014a0| 20 70 61 67 65 73 2d 64 | 69 72 65 63 74 6f 72 79 | pages-d|irectory|
|000014b0| 2e 1f 0a 28 64 65 66 76 | 61 72 20 70 61 67 65 73 |...(defv|ar pages|
|000014c0| 2d 64 69 72 65 63 74 6f | 72 79 2d 70 72 65 66 69 |-directo|ry-prefi|
|000014d0| 78 20 22 2a 44 69 72 65 | 63 74 6f 72 79 20 66 6f |x "*Dire|ctory fo|
|000014e0| 72 3a 22 20 28 23 24 20 | 2e 20 35 32 34 32 29 29 |r:" (#$ |. 5242))|
|000014f0| 0a 23 40 36 35 20 4c 69 | 73 74 20 63 6f 6e 74 61 |.#@65 Li|st conta|
|00001500| 69 6e 69 6e 67 20 74 68 | 65 20 70 6f 73 69 74 69 |ining th|e positi|
|00001510| 6f 6e 73 20 6f 66 20 74 | 68 65 20 70 61 67 65 73 |ons of t|he pages|
|00001520| 20 69 6e 20 74 68 65 20 | 70 61 67 65 73 2d 62 75 | in the |pages-bu|
|00001530| 66 66 65 72 2e 1f 0a 28 | 64 65 66 76 61 72 20 70 |ffer...(|defvar p|
|00001540| 61 67 65 73 2d 70 6f 73 | 2d 6c 69 73 74 20 6e 69 |ages-pos|-list ni|
|00001550| 6c 20 28 23 24 20 2e 20 | 35 33 36 36 29 29 0a 23 |l (#$ . |5366)).#|
|00001560| 40 34 30 20 4b 65 79 6d | 61 70 20 66 6f 72 20 74 |@40 Keym|ap for t|
|00001570| 68 65 20 70 61 67 65 73 | 2d 64 69 72 65 63 74 6f |he pages|-directo|
|00001580| 72 79 2d 62 75 66 66 65 | 72 2e 1f 0a 28 64 65 66 |ry-buffe|r...(def|
|00001590| 76 61 72 20 70 61 67 65 | 73 2d 64 69 72 65 63 74 |var page|s-direct|
|000015a0| 6f 72 79 2d 6d 61 70 20 | 6e 69 6c 20 28 23 24 20 |ory-map |nil (#$ |
|000015b0| 2e 20 35 34 37 36 29 29 | 0a 28 62 79 74 65 2d 63 |. 5476))|.(byte-c|
|000015c0| 6f 64 65 20 22 08 84 13 | 00 c1 20 10 c2 08 c3 c4 |ode "...|.. .....|
|000015d0| 23 88 c2 08 c5 c6 23 88 | c1 87 22 20 5b 70 61 67 |#.....#.|.." [pag|
|000015e0| 65 73 2d 64 69 72 65 63 | 74 6f 72 79 2d 6d 61 70 |es-direc|tory-map|
|000015f0| 20 6d 61 6b 65 2d 73 70 | 61 72 73 65 2d 6b 65 79 | make-sp|arse-key|
|00001600| 6d 61 70 20 64 65 66 69 | 6e 65 2d 6b 65 79 20 22 |map defi|ne-key "|
|00001610| 03 03 22 20 70 61 67 65 | 73 2d 64 69 72 65 63 74 |.." page|s-direct|
|00001620| 6f 72 79 2d 67 6f 74 6f | 20 22 03 10 01 22 20 61 |ory-goto| "..." a|
|00001630| 64 64 2d 6e 65 77 2d 70 | 61 67 65 5d 20 34 29 0a |dd-new-p|age] 4).|
|00001640| 23 40 32 35 20 44 65 66 | 61 75 6c 74 20 70 61 67 |#@25 Def|ault pag|
|00001650| 65 20 64 65 6c 69 6d 69 | 74 65 72 2e 1f 0a 28 64 |e delimi|ter...(d|
|00001660| 65 66 76 61 72 20 6f 72 | 69 67 69 6e 61 6c 2d 70 |efvar or|iginal-p|
|00001670| 61 67 65 2d 64 65 6c 69 | 6d 69 74 65 72 20 22 5e |age-deli|miter "^|
|00001680| 5c 66 22 20 28 23 24 20 | 2e 20 35 37 30 31 29 29 |\f" (#$ |. 5701))|
|00001690| 0a 23 40 32 36 32 20 53 | 65 74 20 62 75 66 66 65 |.#@262 S|et buffe|
|000016a0| 72 20 6c 6f 63 61 6c 20 | 76 61 6c 75 65 20 6f 66 |r local |value of|
|000016b0| 20 70 61 67 65 2d 64 65 | 6c 69 6d 69 74 65 72 20 | page-de|limiter |
|000016c0| 74 6f 20 52 45 47 45 58 | 50 2e 0a 43 61 6c 6c 65 |to REGEX|P..Calle|
|000016d0| 64 20 69 6e 74 65 72 61 | 63 74 69 76 65 6c 79 20 |d intera|ctively |
|000016e0| 77 69 74 68 20 61 20 70 | 72 65 66 69 78 20 61 72 |with a p|refix ar|
|000016f0| 67 75 6d 65 6e 74 2c 20 | 72 65 73 65 74 20 60 70 |gument, |reset `p|
|00001700| 61 67 65 2d 64 65 6c 69 | 6d 69 74 65 72 27 20 74 |age-deli|miter' t|
|00001710| 6f 0a 69 74 73 20 6f 72 | 69 67 69 6e 61 6c 20 76 |o.its or|iginal v|
|00001720| 61 6c 75 65 2e 0a 0a 49 | 6e 20 61 20 70 72 6f 67 |alue...I|n a prog|
|00001730| 72 61 6d 2c 20 6e 6f 6e | 2d 6e 69 6c 20 73 65 63 |ram, non|-nil sec|
|00001740| 6f 6e 64 20 61 72 67 20 | 63 61 75 73 65 73 20 66 |ond arg |causes f|
|00001750| 69 72 73 74 20 61 72 67 | 20 74 6f 20 62 65 20 69 |irst arg| to be i|
|00001760| 67 6e 6f 72 65 64 20 61 | 6e 64 0a 72 65 73 65 74 |gnored a|nd.reset|
|00001770| 73 20 74 68 65 20 70 61 | 67 65 2d 64 65 6c 69 6d |s the pa|ge-delim|
|00001780| 69 74 65 72 20 74 6f 20 | 74 68 65 20 6f 72 69 67 |iter to |the orig|
|00001790| 69 6e 61 6c 20 76 61 6c | 75 65 2e 1f 0a 28 64 65 |inal val|ue...(de|
|000017a0| 66 61 6c 69 61 73 20 27 | 73 65 74 2d 70 61 67 65 |falias '|set-page|
|000017b0| 2d 64 65 6c 69 6d 69 74 | 65 72 20 23 5b 28 72 65 |-delimit|er #[(re|
|000017c0| 67 65 78 70 20 72 65 73 | 65 74 2d 70 29 20 22 c0 |gexp res|et-p) ".|
|000017d0| c1 21 88 c0 c2 21 88 09 | 86 0d 00 5c 6e 11 0b 84 |.!...!..|...\n...|
|000017e0| 17 00 5c 66 12 82 19 00 | 09 12 74 85 21 00 c5 c6 |..\f....|..t.!...|
|000017f0| 5c 6e 5c 22 87 22 20 5b | 6d 61 6b 65 2d 6c 6f 63 |\n\"." [|make-loc|
|00001800| 61 6c 2d 76 61 72 69 61 | 62 6c 65 20 6f 72 69 67 |al-varia|ble orig|
|00001810| 69 6e 61 6c 2d 70 61 67 | 65 2d 64 65 6c 69 6d 69 |inal-pag|e-delimi|
|00001820| 74 65 72 20 70 61 67 65 | 2d 64 65 6c 69 6d 69 74 |ter page|-delimit|
|00001830| 65 72 20 72 65 73 65 74 | 2d 70 20 72 65 67 65 78 |er reset|-p regex|
|00001840| 70 20 6d 65 73 73 61 67 | 65 20 22 54 68 65 20 76 |p messag|e "The v|
|00001850| 61 6c 75 65 20 6f 66 20 | 60 70 61 67 65 2d 64 65 |alue of |`page-de|
|00001860| 6c 69 6d 69 74 65 72 27 | 20 69 73 20 6e 6f 77 3a |limiter'| is now:|
|00001870| 20 25 73 22 5d 20 33 20 | 28 23 24 20 2e 20 35 37 | %s"] 3 |(#$ . 57|
|00001880| 38 33 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |83) (byt|e-code "|
|00001890| 08 83 08 00 09 c2 44 87 | c3 c4 0d 5c 22 c6 44 87 |......D.|...\".D.|
|000018a0| 22 20 5b 63 75 72 72 65 | 6e 74 2d 70 72 65 66 69 |" [curre|nt-prefi|
|000018b0| 78 2d 61 72 67 20 6f 72 | 69 67 69 6e 61 6c 2d 70 |x-arg or|iginal-p|
|000018c0| 61 67 65 2d 64 65 6c 69 | 6d 69 74 65 72 20 22 5e |age-deli|miter "^|
|000018d0| 5c 66 22 20 72 65 61 64 | 2d 73 74 72 69 6e 67 20 |\f" read|-string |
|000018e0| 22 53 65 74 20 70 61 67 | 65 2d 64 65 6c 69 6d 69 |"Set pag|e-delimi|
|000018f0| 74 65 72 20 74 6f 20 72 | 65 67 65 78 70 3a 20 22 |ter to r|egexp: "|
|00001900| 20 70 61 67 65 2d 64 65 | 6c 69 6d 69 74 65 72 20 | page-de|limiter |
|00001910| 6e 69 6c 5d 20 33 29 5d | 29 0a 23 40 31 30 38 39 |nil] 3)]|).#@1089|
|00001920| 20 44 69 73 70 6c 61 79 | 20 61 20 64 69 72 65 63 | Display| a direc|
|00001930| 74 6f 72 79 20 6f 66 20 | 74 68 65 20 70 61 67 65 |tory of |the page|
|00001940| 20 68 65 61 64 65 72 73 | 20 69 6e 20 61 20 74 65 | headers| in a te|
|00001950| 6d 70 6f 72 61 72 79 20 | 62 75 66 66 65 72 2e 0a |mporary |buffer..|
|00001960| 41 20 68 65 61 64 65 72 | 20 69 73 20 74 68 65 20 |A header| is the |
|00001970| 66 69 72 73 74 20 6e 6f | 6e 2d 62 6c 61 6e 6b 20 |first no|n-blank |
|00001980| 6c 69 6e 65 20 61 66 74 | 65 72 20 74 68 65 20 70 |line aft|er the p|
|00001990| 61 67 65 2d 64 65 6c 69 | 6d 69 74 65 72 2e 0a 5c |age-deli|miter..\|
|000019a0| 5b 70 61 67 65 73 2d 64 | 69 72 65 63 74 6f 72 79 |[pages-d|irectory|
|000019b0| 2d 6d 6f 64 65 5d 0a 59 | 6f 75 20 6d 61 79 20 6d |-mode].Y|ou may m|
|000019c0| 6f 76 65 20 70 6f 69 6e | 74 20 74 6f 20 6f 6e 65 |ove poin|t to one|
|000019d0| 20 6f 66 20 74 68 65 20 | 6c 69 6e 65 73 20 69 6e | of the |lines in|
|000019e0| 20 74 68 65 20 74 65 6d | 70 6f 72 61 72 79 20 62 | the tem|porary b|
|000019f0| 75 66 66 65 72 2c 0a 74 | 68 65 6e 20 75 73 65 20 |uffer,.t|hen use |
|00001a00| 5c 3c 70 61 67 65 73 2d | 64 69 72 65 63 74 6f 72 |\<pages-|director|
|00001a10| 79 2d 67 6f 74 6f 3e 20 | 74 6f 20 67 6f 20 74 6f |y-goto> |to go to|
|00001a20| 20 74 68 65 20 73 61 6d | 65 20 6c 69 6e 65 20 69 | the sam|e line i|
|00001a30| 6e 20 74 68 65 20 70 61 | 67 65 73 20 62 75 66 66 |n the pa|ges buff|
|00001a40| 65 72 2e 0a 0a 49 6e 20 | 69 6e 74 65 72 61 63 74 |er...In |interact|
|00001a50| 69 76 65 20 75 73 65 3a | 0a 0a 20 20 20 20 31 2e |ive use:|..    1.|
|00001a60| 20 57 69 74 68 20 6e 6f | 20 70 72 65 66 69 78 20 | With no| prefix |
|00001a70| 61 72 67 2c 20 64 69 73 | 70 6c 61 79 20 61 6c 6c |arg, dis|play all|
|00001a80| 20 68 65 61 64 65 72 73 | 2e 0a 0a 20 20 20 20 32 | headers|...    2|
|00001a90| 2e 20 57 69 74 68 20 70 | 72 65 66 69 78 20 61 72 |. With p|refix ar|
|00001aa0| 67 2c 20 64 69 73 70 6c | 61 79 20 74 68 65 20 68 |g, displ|ay the h|
|00001ab0| 65 61 64 65 72 73 20 6f | 66 20 6f 6e 6c 79 20 74 |eaders o|f only t|
|00001ac0| 68 6f 73 65 20 70 61 67 | 65 73 20 74 68 61 74 0a |hose pag|es that.|
|00001ad0| 20 20 20 20 20 20 20 63 | 6f 6e 74 61 69 6e 20 6d |       c|ontain m|
|00001ae0| 61 74 63 68 65 73 20 74 | 6f 20 61 20 72 65 67 75 |atches t|o a regu|
|00001af0| 6c 61 72 20 65 78 70 72 | 65 73 73 69 6f 6e 20 66 |lar expr|ession f|
|00001b00| 6f 72 20 77 68 69 63 68 | 20 79 6f 75 20 61 72 65 |or which| you are|
|00001b10| 0a 20 20 20 20 20 20 20 | 70 72 6f 6d 70 74 65 64 |.       |prompted|
|00001b20| 2e 0a 0a 20 20 20 20 33 | 2e 20 57 69 74 68 20 6e |...    3|. With n|
|00001b30| 75 6d 65 72 69 63 20 70 | 72 65 66 69 78 20 61 72 |umeric p|refix ar|
|00001b40| 67 2c 20 66 6f 72 20 65 | 76 65 72 79 20 70 61 67 |g, for e|very pag|
|00001b50| 65 2c 20 70 72 69 6e 74 | 20 74 68 65 20 6e 75 6d |e, print| the num|
|00001b60| 62 65 72 20 6f 66 0a 20 | 20 20 20 20 20 20 6c 69 |ber of. |      li|
|00001b70| 6e 65 73 20 77 69 74 68 | 69 6e 20 65 61 63 68 20 |nes with|in each |
|00001b80| 70 61 67 65 2e 0a 0a 20 | 20 20 20 34 2e 20 57 69 |page... |   4. Wi|
|00001b90| 74 68 20 6e 65 67 61 74 | 69 76 65 20 6e 75 6d 65 |th negat|ive nume|
|00001ba0| 72 69 63 20 70 72 65 66 | 69 78 20 61 72 67 2c 20 |ric pref|ix arg, |
|00001bb0| 66 6f 72 20 6f 6e 6c 79 | 20 74 68 6f 73 65 20 70 |for only| those p|
|00001bc0| 61 67 65 73 20 74 68 61 | 74 0a 20 20 20 20 20 20 |ages tha|t.      |
|00001bd0| 20 6d 61 74 63 68 20 61 | 20 72 65 67 75 6c 61 72 | match a| regular|
|00001be0| 20 65 78 70 72 65 73 73 | 69 6f 6e 2c 20 70 72 69 | express|ion, pri|
|00001bf0| 6e 74 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |nt the n|umber of|
|00001c00| 20 6c 69 6e 65 73 20 77 | 69 74 68 69 6e 0a 20 20 | lines w|ithin.  |
|00001c10| 20 20 20 20 20 65 61 63 | 68 20 70 61 67 65 2e 0a |     eac|h page..|
|00001c20| 0a 57 68 65 6e 20 63 61 | 6c 6c 65 64 20 66 72 6f |.When ca|lled fro|
|00001c30| 6d 20 61 20 70 72 6f 67 | 72 61 6d 2c 20 6e 6f 6e |m a prog|ram, non|
|00001c40| 2d 6e 69 6c 20 66 69 72 | 73 74 20 61 72 67 20 6d |-nil fir|st arg m|
|00001c50| 65 61 6e 73 20 6c 69 73 | 74 20 61 6c 6c 20 68 65 |eans lis|t all he|
|00001c60| 61 64 65 72 73 3b 0a 6e | 6f 6e 2d 6e 69 6c 20 73 |aders;.n|on-nil s|
|00001c70| 65 63 6f 6e 64 20 61 72 | 67 20 6d 65 61 6e 73 20 |econd ar|g means |
|00001c80| 70 72 69 6e 74 20 6e 75 | 6d 62 65 72 73 20 6f 66 |print nu|mbers of|
|00001c90| 20 6c 69 6e 65 73 20 69 | 6e 20 65 61 63 68 20 70 | lines i|n each p|
|00001ca0| 61 67 65 3b 20 69 66 20 | 66 69 72 73 74 0a 61 72 |age; if |first.ar|
|00001cb0| 67 20 69 73 20 6e 69 6c | 2c 20 6f 70 74 69 6f 6e |g is nil|, option|
|00001cc0| 61 6c 20 74 68 69 72 64 | 20 61 72 67 20 69 73 20 |al third| arg is |
|00001cd0| 72 65 67 75 6c 61 72 20 | 65 78 70 72 65 73 73 69 |regular |expressi|
|00001ce0| 6f 6e 2e 0a 0a 49 66 20 | 74 68 65 20 62 75 66 66 |on...If |the buff|
|00001cf0| 65 72 20 69 73 20 6e 61 | 72 72 6f 77 65 64 2c 20 |er is na|rrowed, |
|00001d00| 74 68 65 20 60 70 61 67 | 65 73 2d 64 69 72 65 63 |the `pag|es-direc|
|00001d10| 74 6f 72 79 27 20 63 6f | 6d 6d 61 6e 64 20 63 72 |tory' co|mmand cr|
|00001d20| 65 61 74 65 73 20 61 0a | 64 69 72 65 63 74 6f 72 |eates a.|director|
|00001d30| 79 20 66 6f 72 20 6f 6e | 6c 79 20 74 68 65 20 61 |y for on|ly the a|
|00001d40| 63 63 65 73 73 69 62 6c | 65 20 70 6f 72 74 69 6f |ccessibl|e portio|
|00001d50| 6e 20 6f 66 20 74 68 65 | 20 62 75 66 66 65 72 2e |n of the| buffer.|
|00001d60| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 70 61 67 |..(defal|ias 'pag|
|00001d70| 65 73 2d 64 69 72 65 63 | 74 6f 72 79 20 23 5b 28 |es-direc|tory #[(|
|00001d80| 70 61 67 65 73 2d 6c 69 | 73 74 2d 61 6c 6c 2d 68 |pages-li|st-all-h|
|00001d90| 65 61 64 65 72 73 2d 70 | 20 63 6f 75 6e 74 2d 6c |eaders-p| count-l|
|00001da0| 69 6e 65 73 2d 70 20 26 | 6f 70 74 69 6f 6e 61 6c |ines-p &|optional|
|00001db0| 20 72 65 67 65 78 70 29 | 20 22 08 c1 9a 83 0b 00 | regexp)| "......|
|00001dc0| 5c 6e 10 82 0d 00 08 12 | 74 83 17 00 c3 c4 c5 20 |\n......|t...... |
|00001dd0| 5c 22 88 70 0e 06 c7 c5 | 20 51 c8 60 c9 1e 5c 6e |\".p....| Q.`..\n|
|00001de0| 1e 0b 1e 5c 66 1e 0d 1e | 0e 0e 0d 90 8a 0e 0f 71 |...\f...|.......q|
|00001df0| 88 d0 20 88 d1 d2 b1 02 | 88 0e 0e 16 13 d4 16 15 |.. .....|........|
|00001e00| 29 0e 16 83 81 00 8a 65 | 62 88 8c 8a d7 0e 18 d4 |)......e|b.......|
|00001e10| d9 23 29 83 63 00 c9 94 | c8 55 83 63 00 c9 95 62 |.#).c...|.U.c...b|
|00001e20| 88 da 20 88 db 0e 1c 21 | 88 29 d7 0e 18 d4 d9 23 |.. ....!|.).....#|
|00001e30| 83 7d 00 db 0e 1c 21 88 | 82 6c 00 29 82 ba 00 8a |.}....!.|.l.)....|
|00001e40| 65 62 88 8c da 20 88 8a | d7 08 d4 d9 23 29 83 98 |eb... ..|....#)..|
|00001e50| 00 db 0e 1c 21 88 29 d7 | 0e 18 d4 d9 23 83 b9 00 |....!.).|....#...|
|00001e60| 8c da 20 88 8a d7 08 d4 | d9 23 29 83 b5 00 db 0e |.. .....|.#).....|
|00001e70| 1c 21 88 29 82 99 00 29 | 0e 0f 71 88 0e 15 9f 16 |.!.)...)|..q.....|
|00001e80| 15 74 85 d1 00 c3 dd 0e | 15 47 c5 0e 0e 21 23 91 |.t......|.G...!#.|
|00001e90| 88 de 0e 0d 21 88 df c9 | 21 88 0e 5c 6e c9 55 83 |....!...|!..\n.U.|
|00001ea0| e7 00 c8 82 e9 00 0e 5c | 6e 79 2d 87 22 20 5b 72 |.......\|ny-." [r|
|00001eb0| 65 67 65 78 70 20 22 22 | 20 70 61 67 65 73 2d 64 |egexp ""| pages-d|
|00001ec0| 69 72 65 63 74 6f 72 79 | 2d 70 72 65 76 69 6f 75 |irectory|-previou|
|00001ed0| 73 2d 72 65 67 65 78 70 | 20 6d 65 73 73 61 67 65 |s-regexp| message|
|00001ee0| 20 22 43 72 65 61 74 69 | 6e 67 20 64 69 72 65 63 | "Creati|ng direc|
|00001ef0| 74 6f 72 79 20 66 6f 72 | 3a 20 25 73 20 22 20 62 |tory for|: %s " b|
|00001f00| 75 66 66 65 72 2d 6e 61 | 6d 65 20 70 61 67 65 73 |uffer-na|me pages|
|00001f10| 2d 64 69 72 65 63 74 6f | 72 79 2d 70 72 65 66 69 |-directo|ry-prefi|
|00001f20| 78 20 22 20 22 20 31 20 | 30 20 70 61 67 65 73 2d |x " " 1 |0 pages-|
|00001f30| 62 75 66 66 65 72 2d 6f | 72 69 67 69 6e 61 6c 2d |buffer-o|riginal-|
|00001f40| 70 61 67 65 20 70 61 67 | 65 73 2d 62 75 66 66 65 |page pag|es-buffe|
|00001f50| 72 2d 6f 72 69 67 69 6e | 61 6c 2d 70 6f 73 69 74 |r-origin|al-posit|
|00001f60| 69 6f 6e 20 6c 69 6e 65 | 6e 75 6d 20 70 61 67 65 |ion line|num page|
|00001f70| 73 2d 64 69 72 65 63 74 | 6f 72 79 2d 62 75 66 66 |s-direct|ory-buff|
|00001f80| 65 72 20 74 61 72 67 65 | 74 2d 62 75 66 66 65 72 |er targe|t-buffer|
|00001f90| 20 73 74 61 6e 64 61 72 | 64 2d 6f 75 74 70 75 74 | standar|d-output|
|00001fa0| 20 70 61 67 65 73 2d 64 | 69 72 65 63 74 6f 72 79 | pages-d|irectory|
|00001fb0| 2d 6d 6f 64 65 20 22 3d | 3d 3d 3d 20 50 61 67 65 |-mode "=|=== Page|
|00001fc0| 73 20 44 69 72 65 63 74 | 6f 72 79 3a 20 75 73 65 |s Direct|ory: use|
|00001fd0| 20 60 43 2d 63 20 43 2d | 63 27 20 74 6f 20 67 6f | `C-c C-|c' to go|
|00001fe0| 20 74 6f 20 70 61 67 65 | 20 75 6e 64 65 72 20 63 | to page| under c|
|00001ff0| 75 72 73 6f 72 2e 20 3d | 3d 3d 3d 22 20 31 30 20 |ursor. =|===" 10 |
|00002000| 70 61 67 65 73 2d 62 75 | 66 66 65 72 20 6e 69 6c |pages-bu|ffer nil|
|00002010| 20 70 61 67 65 73 2d 70 | 6f 73 2d 6c 69 73 74 20 | pages-p|os-list |
|00002020| 70 61 67 65 73 2d 6c 69 | 73 74 2d 61 6c 6c 2d 68 |pages-li|st-all-h|
|00002030| 65 61 64 65 72 73 2d 70 | 20 72 65 2d 73 65 61 72 |eaders-p| re-sear|
|00002040| 63 68 2d 66 6f 72 77 61 | 72 64 20 70 61 67 65 2d |ch-forwa|rd page-|
|00002050| 64 65 6c 69 6d 69 74 65 | 72 20 74 20 6e 61 72 72 |delimite|r t narr|
|00002060| 6f 77 2d 74 6f 2d 70 61 | 67 65 20 70 61 67 65 73 |ow-to-pa|ge pages|
|00002070| 2d 63 6f 70 79 2d 68 65 | 61 64 65 72 2d 61 6e 64 |-copy-he|ader-and|
|00002080| 2d 70 6f 73 69 74 69 6f | 6e 20 63 6f 75 6e 74 2d |-positio|n count-|
|00002090| 6c 69 6e 65 73 2d 70 20 | 22 25 64 20 6d 61 74 63 |lines-p |"%d matc|
|000020a0| 68 69 6e 67 20 6c 69 6e | 65 73 20 69 6e 3a 20 25 |hing lin|es in: %|
|000020b0| 73 22 20 70 6f 70 2d 74 | 6f 2d 62 75 66 66 65 72 |s" pop-t|o-buffer|
|000020c0| 20 73 69 74 2d 66 6f 72 | 5d 20 36 20 28 23 24 20 | sit-for|] 6 (#$ |
|000020d0| 2e 20 36 34 33 33 29 20 | 28 62 79 74 65 2d 63 6f |. 6433) |(byte-co|
|000020e0| 64 65 20 22 08 84 09 00 | c1 c2 89 45 87 08 3c 83 |de "....|...E..<.|
|000020f0| 1d 00 c2 89 c3 c4 c5 0e | 06 86 19 00 c7 5c 22 21 |........|.....\"!|
|00002100| 45 87 c8 08 21 c9 56 83 | 2a 00 c1 89 c2 45 87 c8 |E...!.V.|*....E..|
|00002110| 08 21 c9 57 85 40 00 c2 | c1 c3 c4 c5 0e 06 86 3d |.!.W.@..|.......=|
|00002120| 00 c7 5c 22 21 45 87 22 | 20 5b 63 75 72 72 65 6e |..\"!E."| [curren|
|00002130| 74 2d 70 72 65 66 69 78 | 2d 61 72 67 20 74 20 6e |t-prefix|-arg t n|
|00002140| 69 6c 20 72 65 61 64 2d | 73 74 72 69 6e 67 20 66 |il read-|string f|
|00002150| 6f 72 6d 61 74 20 22 53 | 65 6c 65 63 74 20 61 63 |ormat "S|elect ac|
|00002160| 63 6f 72 64 69 6e 67 20 | 74 6f 20 60 25 73 27 20 |cording |to `%s' |
|00002170| 28 65 6e 64 20 77 69 74 | 68 20 52 45 54 29 3a 20 |(end wit|h RET): |
|00002180| 22 20 70 61 67 65 73 2d | 64 69 72 65 63 74 6f 72 |" pages-|director|
|00002190| 79 2d 70 72 65 76 69 6f | 75 73 2d 72 65 67 65 78 |y-previo|us-regex|
|000021a0| 70 20 22 72 65 67 65 78 | 70 22 20 70 72 65 66 69 |p "regex|p" prefi|
|000021b0| 78 2d 6e 75 6d 65 72 69 | 63 2d 76 61 6c 75 65 20 |x-numeri|c-value |
|000021c0| 30 5d 20 36 29 5d 29 0a | 23 40 31 35 39 20 43 6f |0] 6)]).|#@159 Co|
|000021d0| 70 79 20 70 61 67 65 20 | 68 65 61 64 65 72 20 61 |py page |header a|
|000021e0| 6e 64 20 69 74 73 20 70 | 6f 73 69 74 69 6f 6e 20 |nd its p|osition |
|000021f0| 74 6f 20 74 68 65 20 50 | 61 67 65 73 20 44 69 72 |to the P|ages Dir|
|00002200| 65 63 74 6f 72 79 2e 0a | 4f 6e 6c 79 20 61 72 67 |ectory..|Only arg|
|00002210| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 63 6f 75 6e 74 20 | non-nil|, count |
|00002220| 6c 69 6e 65 73 20 69 6e | 20 70 61 67 65 20 61 6e |lines in| page an|
|00002230| 64 20 69 6e 73 65 72 74 | 20 62 65 66 6f 72 65 20 |d insert| before |
|00002240| 68 65 61 64 65 72 2e 0a | 55 73 65 64 20 62 79 20 |header..|Used by |
|00002250| 60 70 61 67 65 73 2d 64 | 69 72 65 63 74 6f 72 79 |`pages-d|irectory|
|00002260| 27 20 66 75 6e 63 74 69 | 6f 6e 2e 1f 0a 28 64 65 |' functi|on...(de|
|00002270| 66 61 6c 69 61 73 20 27 | 70 61 67 65 73 2d 63 6f |falias '|pages-co|
|00002280| 70 79 2d 68 65 61 64 65 | 72 2d 61 6e 64 2d 70 6f |py-heade|r-and-po|
|00002290| 73 69 74 69 6f 6e 20 23 | 5b 28 63 6f 75 6e 74 2d |sition #|[(count-|
|000022a0| 6c 69 6e 65 73 2d 70 29 | 20 22 c0 89 19 1a 0b 83 |lines-p)| "......|
|000022b0| 13 00 8a 8c c4 20 88 c5 | 65 64 5c 22 11 2a 60 0e |..... ..|ed\".*`.|
|000022c0| 06 58 83 1f 00 0e 07 54 | 16 07 8a c8 c0 77 88 c9 |.X.....T|.....w..|
|000022d0| 20 89 12 60 c0 93 88 60 | 8a c0 7f 88 60 29 1e 5c | ..`...`|....`).\|
|000022e0| 6e 1e 0b 0e 5c 66 71 88 | 5c 6e 0e 0d 42 16 0d ce |n...\fq.|\n..B...|
|000022f0| 0e 0f 0e 0b 0e 5c 6e 23 | 88 2a 0b 83 5a 00 8a d0 |.....\n#|.*..Z...|
|00002300| 79 88 d1 d2 09 5c 22 63 | 88 29 d3 20 88 29 d4 7f |y....\"c|.). .)..|
|00002310| 2a 87 22 20 5b 6e 69 6c | 20 6c 69 6e 65 2d 63 6f |*." [nil| line-co|
|00002320| 75 6e 74 20 70 6f 73 69 | 74 69 6f 6e 20 63 6f 75 |unt posi|tion cou|
|00002330| 6e 74 2d 6c 69 6e 65 73 | 2d 70 20 6e 61 72 72 6f |nt-lines|-p narro|
|00002340| 77 2d 74 6f 2d 70 61 67 | 65 20 63 6f 75 6e 74 2d |w-to-pag|e count-|
|00002350| 6c 69 6e 65 73 20 70 61 | 67 65 73 2d 62 75 66 66 |lines pa|ges-buff|
|00002360| 65 72 2d 6f 72 69 67 69 | 6e 61 6c 2d 70 6f 73 69 |er-origi|nal-posi|
|00002370| 74 69 6f 6e 20 70 61 67 | 65 73 2d 62 75 66 66 65 |tion pag|es-buffe|
|00002380| 72 2d 6f 72 69 67 69 6e | 61 6c 2d 70 61 67 65 20 |r-origin|al-page |
|00002390| 22 20 09 5c 6e 22 20 6d | 61 6b 65 2d 6d 61 72 6b |" .\n" m|ake-mark|
|000023a0| 65 72 20 65 6e 64 20 73 | 74 61 72 74 20 73 74 61 |er end s|tart sta|
|000023b0| 6e 64 61 72 64 2d 6f 75 | 74 70 75 74 20 70 61 67 |ndard-ou|tput pag|
|000023c0| 65 73 2d 70 6f 73 2d 6c | 69 73 74 20 69 6e 73 65 |es-pos-l|ist inse|
|000023d0| 72 74 2d 62 75 66 66 65 | 72 2d 73 75 62 73 74 72 |rt-buffe|r-substr|
|000023e0| 69 6e 67 20 74 61 72 67 | 65 74 2d 62 75 66 66 65 |ing targ|et-buffe|
|000023f0| 72 20 30 20 66 6f 72 6d | 61 74 20 22 25 33 64 3a |r 0 form|at "%3d:|
|00002400| 20 22 20 74 65 72 70 72 | 69 20 31 5d 20 35 20 28 | " terpr|i 1] 5 (|
|00002410| 23 24 20 2e 20 38 36 35 | 34 29 5d 29 0a 23 40 31 |#$ . 865|4)]).#@1|
|00002420| 37 32 20 4d 6f 64 65 20 | 66 6f 72 20 68 61 6e 64 |72 Mode |for hand|
|00002430| 6c 69 6e 67 20 74 68 65 | 20 70 61 67 65 73 2d 64 |ling the| pages-d|
|00002440| 69 72 65 63 74 6f 72 79 | 20 62 75 66 66 65 72 2e |irectory| buffer.|
|00002450| 0a 0a 4d 6f 76 65 20 70 | 6f 69 6e 74 20 74 6f 20 |..Move p|oint to |
|00002460| 6f 6e 65 20 6f 66 20 74 | 68 65 20 6c 69 6e 65 73 |one of t|he lines|
|00002470| 20 69 6e 20 74 68 69 73 | 20 62 75 66 66 65 72 2c | in this| buffer,|
|00002480| 20 74 68 65 6e 20 75 73 | 65 20 5c 5b 70 61 67 65 | then us|e \[page|
|00002490| 73 2d 64 69 72 65 63 74 | 6f 72 79 2d 67 6f 74 6f |s-direct|ory-goto|
|000024a0| 5d 20 74 6f 20 67 6f 0a | 74 6f 20 74 68 65 20 73 |] to go.|to the s|
|000024b0| 61 6d 65 20 6c 69 6e 65 | 20 69 6e 20 74 68 65 20 |ame line| in the |
|000024c0| 70 61 67 65 73 20 62 75 | 66 66 65 72 2e 1f 0a 28 |pages bu|ffer...(|
|000024d0| 64 65 66 61 6c 69 61 73 | 20 27 70 61 67 65 73 2d |defalias| 'pages-|
|000024e0| 64 69 72 65 63 74 6f 72 | 79 2d 6d 6f 64 65 20 23 |director|y-mode #|
|000024f0| 5b 6e 69 6c 20 22 c0 20 | 88 c1 5c 6e 21 88 c3 14 |[nil ". |..\n!...|
|00002500| c5 16 06 c7 c8 21 88 c7 | c9 21 88 c7 ca 21 87 22 |.....!..|.!...!."|
|00002510| 20 5b 6b 69 6c 6c 2d 61 | 6c 6c 2d 6c 6f 63 61 6c | [kill-a|ll-local|
|00002520| 2d 76 61 72 69 61 62 6c | 65 73 20 75 73 65 2d 6c |-variabl|es use-l|
|00002530| 6f 63 61 6c 2d 6d 61 70 | 20 70 61 67 65 73 2d 64 |ocal-map| pages-d|
|00002540| 69 72 65 63 74 6f 72 79 | 2d 6d 61 70 20 70 61 67 |irectory|-map pag|
|00002550| 65 73 2d 64 69 72 65 63 | 74 6f 72 79 2d 6d 6f 64 |es-direc|tory-mod|
|00002560| 65 20 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 22 50 61 |e major-|mode "Pa|
|00002570| 67 65 73 2d 44 69 72 65 | 63 74 6f 72 79 22 20 6d |ges-Dire|ctory" m|
|00002580| 6f 64 65 2d 6e 61 6d 65 | 20 6d 61 6b 65 2d 6c 6f |ode-name| make-lo|
|00002590| 63 61 6c 2d 76 61 72 69 | 61 62 6c 65 20 70 61 67 |cal-vari|able pag|
|000025a0| 65 73 2d 62 75 66 66 65 | 72 20 70 61 67 65 73 2d |es-buffe|r pages-|
|000025b0| 70 6f 73 2d 6c 69 73 74 | 20 70 61 67 65 73 2d 64 |pos-list| pages-d|
|000025c0| 69 72 65 63 74 6f 72 79 | 2d 62 75 66 66 65 72 2d |irectory|-buffer-|
|000025d0| 6e 61 72 72 6f 77 69 6e | 67 2d 70 5d 20 32 20 28 |narrowin|g-p] 2 (|
|000025e0| 23 24 20 2e 20 39 32 35 | 31 29 5d 29 0a 23 40 35 |#$ . 925|1)]).#@5|
|000025f0| 31 20 47 6f 20 74 6f 20 | 74 68 65 20 63 6f 72 72 |1 Go to |the corr|
|00002600| 65 73 70 6f 6e 64 69 6e | 67 20 6c 69 6e 65 20 69 |espondin|g line i|
|00002610| 6e 20 74 68 65 20 70 61 | 67 65 73 20 62 75 66 66 |n the pa|ges buff|
|00002620| 65 72 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |er...(de|falias '|
|00002630| 70 61 67 65 73 2d 64 69 | 72 65 63 74 6f 72 79 2d |pages-di|rectory-|
|00002640| 67 6f 74 6f 20 23 5b 6e | 69 6c 20 22 08 83 5c 6e |goto #[n|il "..\n|
|00002650| 00 c1 08 21 84 12 00 c2 | 10 c2 13 c4 c5 21 88 c6 |...!....|.....!..|
|00002660| 79 88 c7 65 60 5c 22 53 | 89 1e 08 0b 38 1e 09 6d |y..e`\"S|....8..m|
|00002670| 1e 5c 6e 0e 0b 1e 5c 66 | cd 08 21 88 7e 88 0e 5c |.\n...\f|..!.~..\|
|00002680| 6e 83 39 00 64 62 88 82 | 3f 00 ce 0e 09 21 62 88 |n.9.db..|?....!b.|
|00002690| 0e 5c 66 85 46 00 cf 20 | 2c 87 22 20 5b 70 61 67 |.\f.F.. |,." [pag|
|000026a0| 65 73 2d 62 75 66 66 65 | 72 20 62 75 66 66 65 72 |es-buffe|r buffer|
|000026b0| 2d 6e 61 6d 65 20 6e 69 | 6c 20 70 61 67 65 73 2d |-name ni|l pages-|
|000026c0| 70 6f 73 2d 6c 69 73 74 | 20 65 72 72 6f 72 20 22 |pos-list| error "|
|000026d0| 42 75 66 66 65 72 20 69 | 6e 20 77 68 69 63 68 20 |Buffer i|n which |
|000026e0| 70 61 67 65 73 20 77 65 | 72 65 20 66 6f 75 6e 64 |pages we|re found|
|000026f0| 20 69 73 20 64 65 6c 65 | 74 65 64 2e 22 20 30 20 | is dele|ted." 0 |
|00002700| 63 6f 75 6e 74 2d 6c 69 | 6e 65 73 20 70 61 67 65 |count-li|nes page|
|00002710| 73 2d 6e 75 6d 62 65 72 | 20 70 6f 73 20 65 6e 64 |s-number| pos end|
|00002720| 2d 6f 66 2d 64 69 72 65 | 63 74 6f 72 79 2d 70 20 |-of-dire|ctory-p |
|00002730| 70 61 67 65 73 2d 64 69 | 72 65 63 74 6f 72 79 2d |pages-di|rectory-|
|00002740| 62 75 66 66 65 72 2d 6e | 61 72 72 6f 77 69 6e 67 |buffer-n|arrowing|
|00002750| 2d 70 20 6e 61 72 72 6f | 77 69 6e 67 2d 70 20 70 |-p narro|wing-p p|
|00002760| 6f 70 2d 74 6f 2d 62 75 | 66 66 65 72 20 6d 61 72 |op-to-bu|ffer mar|
|00002770| 6b 65 72 2d 70 6f 73 69 | 74 69 6f 6e 20 6e 61 72 |ker-posi|tion nar|
|00002780| 72 6f 77 2d 74 6f 2d 70 | 61 67 65 5d 20 34 20 28 |row-to-p|age] 4 (|
|00002790| 23 24 20 2e 20 39 37 31 | 34 29 20 6e 69 6c 5d 29 |#$ . 971|4) nil])|
|000027a0| 0a 23 40 36 35 37 20 46 | 69 6e 64 20 61 64 64 72 |.#@657 F|ind addr|
|000027b0| 65 73 73 65 73 20 66 69 | 6c 65 20 61 6e 64 20 64 |esses fi|le and d|
|000027c0| 69 73 70 6c 61 79 20 69 | 74 73 20 64 69 72 65 63 |isplay i|ts direc|
|000027d0| 74 6f 72 79 2e 0a 42 79 | 20 64 65 66 61 75 6c 74 |tory..By| default|
|000027e0| 2c 20 63 72 65 61 74 65 | 20 61 6e 64 20 64 69 73 |, create| and dis|
|000027f0| 70 6c 61 79 20 64 69 72 | 65 63 74 6f 72 79 20 6f |play dir|ectory o|
|00002800| 66 20 60 70 61 67 65 73 | 2d 61 64 64 72 65 73 73 |f `pages|-address|
|00002810| 65 73 2d 66 69 6c 65 2d | 6e 61 6d 65 27 2e 0a 4f |es-file-|name'..O|
|00002820| 70 74 69 6f 6e 61 6c 20 | 61 72 67 75 6d 65 6e 74 |ptional |argument|
|00002830| 20 69 73 20 46 49 4c 45 | 4e 41 4d 45 2e 20 20 49 | is FILE|NAME.  I|
|00002840| 6e 20 69 6e 74 65 72 61 | 63 74 69 76 65 20 75 73 |n intera|ctive us|
|00002850| 65 2c 20 77 69 74 68 20 | 70 72 65 66 69 78 0a 61 |e, with |prefix.a|
|00002860| 72 67 75 6d 65 6e 74 2c | 20 70 72 6f 6d 70 74 20 |rgument,| prompt |
|00002870| 66 6f 72 20 66 69 6c 65 | 20 6e 61 6d 65 20 61 6e |for file| name an|
|00002880| 64 20 70 72 6f 76 69 64 | 65 20 63 6f 6d 70 6c 65 |d provid|e comple|
|00002890| 74 69 6f 6e 2e 0a 0a 4d | 6f 76 65 20 70 6f 69 6e |tion...M|ove poin|
|000028a0| 74 20 74 6f 20 6f 6e 65 | 20 6f 66 20 74 68 65 20 |t to one| of the |
|000028b0| 6c 69 6e 65 73 20 69 6e | 20 74 68 65 20 64 69 73 |lines in| the dis|
|000028c0| 70 6c 61 79 65 64 20 64 | 69 72 65 63 74 6f 72 79 |played d|irectory|
|000028d0| 2c 0a 74 68 65 6e 20 75 | 73 65 20 5c 5b 70 61 67 |,.then u|se \[pag|
|000028e0| 65 73 2d 64 69 72 65 63 | 74 6f 72 79 2d 67 6f 74 |es-direc|tory-got|
|000028f0| 6f 5d 20 74 6f 20 67 6f | 20 74 6f 20 74 68 65 20 |o] to go| to the |
|00002900| 73 61 6d 65 20 6c 69 6e | 65 0a 69 6e 20 74 68 65 |same lin|e.in the|
|00002910| 20 61 64 64 72 65 73 73 | 65 73 20 62 75 66 66 65 | address|es buffe|
|00002920| 72 2e 0a 0a 49 66 20 20 | 20 20 70 61 67 65 73 2d |r...If  |  pages-|
|00002930| 64 69 72 65 63 74 6f 72 | 79 2d 66 6f 72 2d 61 64 |director|y-for-ad|
|00002940| 64 72 65 73 73 65 73 2d | 67 6f 74 6f 2d 6e 61 72 |dresses-|goto-nar|
|00002950| 72 6f 77 69 6e 67 2d 70 | 20 20 20 20 69 73 20 6e |rowing-p|    is n|
|00002960| 6f 6e 2d 6e 69 6c 2c 0a | 60 70 61 67 65 73 2d 64 |on-nil,.|`pages-d|
|00002970| 69 72 65 63 74 6f 72 79 | 2d 67 6f 74 6f 27 20 6e |irectory|-goto' n|
|00002980| 61 72 72 6f 77 73 20 61 | 64 64 72 65 73 73 65 73 |arrows a|ddresses|
|00002990| 20 62 75 66 66 65 72 20 | 74 6f 20 65 6e 74 72 79 | buffer |to entry|
|000029a0| 2e 0a 0a 49 66 20 20 20 | 20 70 61 67 65 73 2d 64 |...If   | pages-d|
|000029b0| 69 72 65 63 74 6f 72 79 | 2d 66 6f 72 2d 61 64 64 |irectory|-for-add|
|000029c0| 72 65 73 73 65 73 2d 62 | 75 66 66 65 72 2d 6b 65 |resses-b|uffer-ke|
|000029d0| 65 70 2d 77 69 6e 64 6f | 77 73 2d 70 20 20 20 20 |ep-windo|ws-p    |
|000029e0| 20 69 73 20 6e 69 6c 2c | 0a 74 68 69 73 20 63 6f | is nil,|.this co|
|000029f0| 6d 6d 61 6e 64 20 64 65 | 6c 65 74 65 73 20 6f 74 |mmand de|letes ot|
|00002a00| 68 65 72 20 77 69 6e 64 | 6f 77 73 20 77 68 65 6e |her wind|ows when|
|00002a10| 20 69 74 20 64 69 73 70 | 6c 61 79 73 20 74 68 65 | it disp|lays the|
|00002a20| 20 61 64 64 72 65 73 73 | 65 73 20 0a 64 69 72 65 | address|es .dire|
|00002a30| 63 74 6f 72 79 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ctory...|(defalia|
|00002a40| 73 20 27 70 61 67 65 73 | 2d 64 69 72 65 63 74 6f |s 'pages|-directo|
|00002a50| 72 79 2d 66 6f 72 2d 61 | 64 64 72 65 73 73 65 73 |ry-for-a|ddresses|
|00002a60| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 66 69 | #[(&opt|ional fi|
|00002a70| 6c 65 6e 61 6d 65 29 20 | 22 74 83 0d 00 c0 c1 5c |lename) |"t.....\|
|00002a80| 6e 86 0b 00 0b 5c 22 88 | c4 5c 6e 86 13 00 0b 21 |n....\".|.\n....!|
|00002a90| 83 4e 00 c5 c6 5c 6e 86 | 1e 00 0b 21 21 71 88 7e |.N...\n.|...!!q.~|
|00002aa0| 88 c7 c8 c9 89 23 88 ca | 20 88 0e 0b 16 5c 66 0e |.....#..| ....\f.|
|00002ab0| 0d 84 39 00 ce 20 88 8a | 65 62 88 60 8a c9 7f 88 |..9.. ..|eb.`....|
|00002ac0| 60 29 7c 88 cf 63 88 d0 | c9 21 29 87 d1 d2 21 87 |`)|..c..|.!)...!.|
|00002ad0| 22 20 5b 6d 65 73 73 61 | 67 65 20 22 43 72 65 61 |" [messa|ge "Crea|
|00002ae0| 74 69 6e 67 20 64 69 72 | 65 63 74 6f 72 79 20 66 |ting dir|ectory f|
|00002af0| 6f 72 3a 20 25 73 20 22 | 20 66 69 6c 65 6e 61 6d |or: %s "| filenam|
|00002b00| 65 20 70 61 67 65 73 2d | 61 64 64 72 65 73 73 65 |e pages-|addresse|
|00002b10| 73 2d 66 69 6c 65 2d 6e | 61 6d 65 20 66 69 6c 65 |s-file-n|ame file|
|00002b20| 2d 65 78 69 73 74 73 2d | 70 20 66 69 6e 64 2d 66 |-exists-|p find-f|
|00002b30| 69 6c 65 2d 6e 6f 73 65 | 6c 65 63 74 20 65 78 70 |ile-nose|lect exp|
|00002b40| 61 6e 64 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 70 61 |and-file|-name pa|
|00002b50| 67 65 73 2d 64 69 72 65 | 63 74 6f 72 79 20 74 20 |ges-dire|ctory t |
|00002b60| 6e 69 6c 20 70 61 67 65 | 73 2d 64 69 72 65 63 74 |nil page|s-direct|
|00002b70| 6f 72 79 2d 61 64 64 72 | 65 73 73 2d 6d 6f 64 65 |ory-addr|ess-mode|
|00002b80| 20 70 61 67 65 73 2d 64 | 69 72 65 63 74 6f 72 79 | pages-d|irectory|
|00002b90| 2d 66 6f 72 2d 61 64 64 | 72 65 73 73 65 73 2d 67 |-for-add|resses-g|
|00002ba0| 6f 74 6f 2d 6e 61 72 72 | 6f 77 69 6e 67 2d 70 20 |oto-narr|owing-p |
|00002bb0| 70 61 67 65 73 2d 64 69 | 72 65 63 74 6f 72 79 2d |pages-di|rectory-|
|00002bc0| 62 75 66 66 65 72 2d 6e | 61 72 72 6f 77 69 6e 67 |buffer-n|arrowing|
|00002bd0| 2d 70 20 70 61 67 65 73 | 2d 64 69 72 65 63 74 6f |-p pages|-directo|
|00002be0| 72 79 2d 66 6f 72 2d 61 | 64 64 72 65 73 73 65 73 |ry-for-a|ddresses|
|00002bf0| 2d 62 75 66 66 65 72 2d | 6b 65 65 70 2d 77 69 6e |-buffer-|keep-win|
|00002c00| 64 6f 77 73 2d 70 20 64 | 65 6c 65 74 65 2d 6f 74 |dows-p d|elete-ot|
|00002c10| 68 65 72 2d 77 69 6e 64 | 6f 77 73 20 22 3d 3d 3d |her-wind|ows "===|
|00002c20| 20 41 64 64 72 65 73 73 | 20 4c 69 73 74 20 44 69 | Address| List Di|
|00002c30| 72 65 63 74 6f 72 79 3a | 20 75 73 65 20 60 43 2d |rectory:| use `C-|
|00002c40| 63 20 43 2d 63 27 20 74 | 6f 20 67 6f 20 74 6f 20 |c C-c' t|o go to |
|00002c50| 70 61 67 65 20 75 6e 64 | 65 72 20 63 75 72 73 6f |page und|er curso|
|00002c60| 72 2e 20 3d 3d 3d 22 20 | 73 65 74 2d 62 75 66 66 |r. ===" |set-buff|
|00002c70| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 20 65 72 |er-modif|ied-p er|
|00002c80| 72 6f 72 20 22 4e 6f 20 | 61 64 64 72 65 73 73 65 |ror "No |addresse|
|00002c90| 73 20 66 69 6c 65 20 66 | 6f 75 6e 64 21 22 5d 20 |s file f|ound!"] |
|00002ca0| 34 20 28 23 24 20 2e 20 | 31 30 31 35 31 29 20 28 |4 (#$ . |10151) (|
|00002cb0| 6c 69 73 74 20 28 69 66 | 20 63 75 72 72 65 6e 74 |list (if| current|
|00002cc0| 2d 70 72 65 66 69 78 2d | 61 72 67 20 28 72 65 61 |-prefix-|arg (rea|
|00002cd0| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 22 46 69 6c |d-file-n|ame "Fil|
|00002ce0| 65 6e 61 6d 65 3a 20 22 | 20 70 61 67 65 73 2d 61 |ename: "| pages-a|
|00002cf0| 64 64 72 65 73 73 65 73 | 2d 66 69 6c 65 2d 6e 61 |ddresses|-file-na|
|00002d00| 6d 65 29 29 29 5d 29 0a | 23 40 31 37 36 20 4d 6f |me)))]).|#@176 Mo|
|00002d10| 64 65 20 66 6f 72 20 68 | 61 6e 64 6c 69 6e 67 20 |de for h|andling |
|00002d20| 74 68 65 20 41 64 64 72 | 65 73 73 65 73 20 44 69 |the Addr|esses Di|
|00002d30| 72 65 63 74 6f 72 79 20 | 62 75 66 66 65 72 2e 0a |rectory |buffer..|
|00002d40| 0a 4d 6f 76 65 20 70 6f | 69 6e 74 20 74 6f 20 6f |.Move po|int to o|
|00002d50| 6e 65 20 6f 66 20 74 68 | 65 20 6c 69 6e 65 73 20 |ne of th|e lines |
|00002d60| 69 6e 20 74 68 69 73 20 | 62 75 66 66 65 72 2c 0a |in this |buffer,.|
|00002d70| 74 68 65 6e 20 75 73 65 | 20 5c 5b 70 61 67 65 73 |then use| \[pages|
|00002d80| 2d 64 69 72 65 63 74 6f | 72 79 2d 67 6f 74 6f 5d |-directo|ry-goto]|
|00002d90| 20 74 6f 20 67 6f 0a 74 | 6f 20 74 68 65 20 73 61 | to go.t|o the sa|
|00002da0| 6d 65 20 6c 69 6e 65 20 | 69 6e 20 74 68 65 20 70 |me line |in the p|
|00002db0| 61 67 65 73 20 62 75 66 | 66 65 72 2e 1f 0a 28 64 |ages buf|fer...(d|
|00002dc0| 65 66 61 6c 69 61 73 20 | 27 70 61 67 65 73 2d 64 |efalias |'pages-d|
|00002dd0| 69 72 65 63 74 6f 72 79 | 2d 61 64 64 72 65 73 73 |irectory|-address|
|00002de0| 2d 6d 6f 64 65 20 23 5b | 6e 69 6c 20 22 c0 09 21 |-mode #[|nil "..!|
|00002df0| 88 c2 13 c4 15 c6 c7 21 | 88 c6 c8 21 88 c6 c9 21 |.......!|...!...!|
|00002e00| 87 22 20 5b 75 73 65 2d | 6c 6f 63 61 6c 2d 6d 61 |." [use-|local-ma|
|00002e10| 70 20 70 61 67 65 73 2d | 64 69 72 65 63 74 6f 72 |p pages-|director|
|00002e20| 79 2d 6d 61 70 20 70 61 | 67 65 73 2d 64 69 72 65 |y-map pa|ges-dire|
|00002e30| 63 74 6f 72 79 2d 61 64 | 64 72 65 73 73 2d 6d 6f |ctory-ad|dress-mo|
|00002e40| 64 65 20 6d 61 6a 6f 72 | 2d 6d 6f 64 65 20 22 41 |de major|-mode "A|
|00002e50| 64 64 72 65 73 73 65 73 | 20 44 69 72 65 63 74 6f |ddresses| Directo|
|00002e60| 72 79 22 20 6d 6f 64 65 | 2d 6e 61 6d 65 20 6d 61 |ry" mode|-name ma|
|00002e70| 6b 65 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |ke-local|-variabl|
|00002e80| 65 20 70 61 67 65 73 2d | 62 75 66 66 65 72 20 70 |e pages-|buffer p|
|00002e90| 61 67 65 73 2d 70 6f 73 | 2d 6c 69 73 74 20 70 61 |ages-pos|-list pa|
|00002ea0| 67 65 73 2d 64 69 72 65 | 63 74 6f 72 79 2d 62 75 |ges-dire|ctory-bu|
|00002eb0| 66 66 65 72 2d 6e 61 72 | 72 6f 77 69 6e 67 2d 70 |ffer-nar|rowing-p|
|00002ec0| 5d 20 32 20 28 23 24 20 | 2e 20 31 31 35 33 34 29 |] 2 (#$ |. 11534)|
|00002ed0| 5d 29 0a 28 70 72 6f 76 | 69 64 65 20 28 71 75 6f |]).(prov|ide (quo|
|00002ee0| 74 65 20 70 61 67 65 2d | 65 78 74 29 29 0a       |te page-|ext)).  |
+--------+-------------------------+-------------------------+--------+--------+